Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/DESKIP.PRG

Text File | 1985-07-02 | 3KB | 120 lines

set talk off
sele 1
use clipwage
clear
Set Color To w+/
* Do ScrBoard
* PROCEDURE SCRBOARD
  clear
  @ 1,0 SAY "╔══════════════════════════════════════════════════════════════════════════════╗"
  @ 2,0 SAY "║"
  @ 2,79 SAY "║"
  @ 3,0 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  @ 4,0 SAY "┌──────────────────────────────────────────────────────────────────────────────┐"
  @ 5,0 SAY "│"
  @ 5,79 SAY "│"
  @ 6,0 SAY "│"
  @ 6,79 SAY "│"
  @ 7,0 SAY "│"
  @ 7,79 SAY "│"
  @ 8,0 SAY "│"
  @ 8,79 SAY "│"
  @ 9,0 SAY "│"
  @ 9,79 SAY "│"
  @ 10,0 SAY "│"
  @ 10,79 SAY "│"
  @ 11,0 SAY "│"
  @ 11,79 SAY "│"
  @ 12,0 SAY "│"
  @ 12,79 SAY "│"
  @ 13,0 SAY "│"
  @ 13,79 SAY "│"
  @ 14,0 SAY "│"
  @ 14,79 SAY "│"
  @ 15,0 SAY "│"
  @ 15,79 SAY "│"
  @ 16,0 SAY "│"
  @ 16,79 SAY "│"
  @ 17,0 SAY "│"
  @ 17,79 SAY "│"
  @ 18,0 SAY "│"
  @ 18,79 SAY "│"
  @ 19,0 SAY "├──────────────────────────────────────────────────────────────────────────────┤"
  @ 20,0 SAY "│"
  @ 20,79 SAY "│"
  @ 21,0 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
* RETURN
@ 6,0   SAY "├──────────────────────────────────────────────────────────────────────────────┤"
@ 17,0  SAY "├──────────────────────────────────────────────────────────────────────────────┤"
@ 19,0  SAY "│"
@ 19,1 Say Space(78)
@ 19,79 SAY "│"
@ 6,45  SAY "┬"
@ 7,45  SAY "│"
@ 8,45  SAY "│"
@ 9,45  SAY "│"
@ 10,45 SAY "│"
@ 11,45 SAY "│"
@ 12,45 SAY "│"
@ 13,45 SAY "│"
@ 14,45 SAY "│"
@ 15,45 SAY "│"
@ 16,45 SAY "│"
@ 17,45 SAY "┴"
Set Color To gr+/
@ 2,10 Say '  d B A S E - I I I   .and.   C l i p p e r  ....  [SKIP]  '
@  6,7 Say ' The Code Used For Loop '
@  7,7 Say ' ~~~~~~~~~~~~~~~~~~~~~~ '
@  6,52 Say ' The Data in the File '
@  7,52 Say ' ~~~~~~~~~~~~~~~~~~~~ '
*
set color to g+/
@ 8,3 say "x = 8"
@ 9,3 say "Do While (.NOT. eof()) .AND. (x < 17)"
@ 10,3 say "  Set Color To /bg+"
@ 11,3 say "  @ x,47 Say Str(Recno(),3)"
@ 12,3 say "  Set Color To bg+/"
@ 13,3 say "  @ x,53 Say Name"
@ 14,3 say "  x = x + 1"
@ 15,3 say "  Skip"
@ 16,3 say "Enddo [Display in nines until end of file]"
*
Set Color To r+/
@ 18,3 Say 'This program skips through a database file displaying the contents of    '
@ 19,3 Say 'the name field on the right of the screen with the record number.       '
@ 5,3 Say 'Times ... Started :- '
@ 5,37 Say 'Finished :- '
@ 5,62 Say 'Seconds :- '
Set Color To g+/
@ 5,24 Say Time()
Start_Sec = (Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))
*
* display records on the screen
*
x = 8
Do While (.NOT. eof()) .AND. (x < 17)
  Set Color To /bg+
  @ x,47 Say Str(Recno(),3)
  Set Color To bg+/
  @ x,53 Say Name
  x = x + 1
  Skip
  If x = 17
    Store 8 To Mcount,x
    Do while Mcount < 17
      @ Mcount,47 Say Space(31)
      Mcount = Mcount + 1
    Enddo [ Clear panel ]
  Endif [ Test if panel full ? ]
Enddo [ Display in nines until end of file ]
Seconds = ((Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))) - Start_Sec
Set Color To g+/
@ 5,49 Say Time()
@ 5,73 Say Str(Seconds,2)
Set Color To gr+/,w+/gr
Resp = ' '
@ 20,3 Say 'Press ANYKEY for Main Menu ' Get Resp
Read
Clear Gets
Return